Toot-Child-Code names an undocumented function, with lambda list (INSTANCE).
Defined in file src/db/friendly.lisp.
(SETF Toot-Child-Code) names an undocumented function, with lambda list (VALUE INSTANCE).